home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Show on Desktop 2.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Internet Service Providers Icons"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.09"
  8. "TEXT 1"="MSN Versions 1.0, 2.0, 5.x or later"
  9. "TEXT 2"="MSN Versions 2.5, 2.6 or 2.7"
  10. "TEXT 3"="AOL Desktop Icon"
  11. "TEXT 4"="Windows 9x/2K/ME Dial-up Network"
  12. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  13. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  19.  
  20.  
  21.  
  22.  
  23. '******************************************************************
  24. '***                MASTER TEMPLATE (1 of X)                   ****
  25. '******************************************************************
  26. sVals=Array("{88667D10-10F0-11D0-8150-00AA00BF8457}","{00028B00-0000-0000-C000-000000000046}","{955B7B84-5308-419c-8ED8-0B9CA3C56985}","{992CFFA0-F557-101A-88EC-00DD010CCC48}")
  27. '******************************************************************
  28. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  29. '******************************************************************
  30. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  31.  
  32.  
  33.  
  34. Sub Plugin_Initialize 
  35.  for i=0 to GetUIElementsCount-1
  36.      s=sPath & sVals(i)
  37.  
  38.      if RegPathExists(s) then SetUIElement i+1,true
  39.  next 
  40. End Sub
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  for i=0 to GetUIElementsCount-1
  47.      b=GetUIElement(i+1)
  48.      s=sPath & sVals(i)
  49.  
  50.      if b=true then
  51.         Call RegWriteValue(s & "\@","",1)
  52.      else
  53.  
  54.         if RegPathExists(s) then
  55.            if RegValueExists(s & "\Removal Message") then
  56.               Call RegDeleteValue(s & "\Removal Message")
  57.            end if
  58.            
  59.            'finally delete the path 
  60.            Call RegDeletePath(s)
  61.        end if
  62.      end if
  63.  next 
  64.  
  65.  Call IndicateSettingChange()
  66. End Sub
  67.  
  68.  
  69. Sub Plugin_Terminate 
  70. End Sub
  71.  
  72.  
  73.  
  74.